- جميع البيانات التى تتعامل معها تكون مخزنة داخل الذاكرة الداخلية 82/0 . 
- تتعامل لغة 83510 اجباو۷ مع العديد من انواع البيانات منها : 
- بيانات رقمية صحيحة مثل :_ Byte - Short - Integer - Long‏ . 
- بيانات رقمية غير صحيحة مثل : Single - Double - Decimal‏ . 
- بيانات حرفية مثل : 0م510 - Char‏ . 
- بيانات متنوعة : هى البيانات التى لا تندرج تحت تصنيف البيانات الرقمية او الحرفية مثل : 
6 ( تاریخ ووقت ) - 500183 ( بیان منطقى 22156 - ۲۲۵6 ) - 00601 بیان عام . 
الكمبيوتر مثل النوع ۱0۱1۵96۲ يحجز 4 5هع]لا8 . 
ن القيم لكل نوع بیان مثل 86 من 255 : 0 . 


نهد الادنی والاقصی لقيمته . 


- کل نوع بیان له حيز تخزین فم 
- المدی ۴۵۱06 : الحد الادنی والا 
- کل نوع بیان یحدد حیز التخزین الذى ب 


- الثوابت 6009612۳016 : هی اماکن محجوزة : اکرة عند الاعلان عنها یتحدد لها اسم ونوع وتأخذ 
قيمة لا تتغیر اثناء سير البرنامج . ( مثل قيمة ط و ت والضوء وعجلة الجاذبية ) 
صيغة الاعلان Const Constant Name ‘Data Type = Value‏ 


القيمة نوع البيان 5 الثابت 
اعلان عن ثابت حرفی باسم 60_26 لتخزين بداخله القيمة و 
"كنزى" = 5۲۱۷۱9 Const C_Name As‏ 

- المتغیرات 31131©5// : هى اماكن محجوزة فى الذاكرة عند الاعلان عنها يحدد لها اسم ونوع وقيمة 
عادة ما تتغير اثناء سير البرنامج . ويمكن ان يأخذ المتغير قيمة ابتدائية ماج۷ 1011131 . 
صيغة الاعلان Dim Variable_ Name As Data Type ( = Initial Value)‏ 

القيمة ( اختيارى ) نوع البيان اسم المتغير 
اعلان عن متغير رقمى باسم ©1013|_2110 لتخزين بداخله اسعار الكتب 

Dim ۲0]۵1_ ۳۲۱۵۵ As Single 


- قيمة التاريخ والوقت مع هج( توضع بين علامتى # # . والقيمة الحرفية بين علامتی " " 


e‏ 075 سلسلة كنزى فى الكعبيوتر 
- شروط تسمية الثوابت والمتغيرت : ۱- يبذا اسم المتغير أو الثابت بحرف او علامة( _ ) 
أن ين انم خی الرموق و لیات احا تبون من اقات اس ادا یزان 
- نطاق استعمال المتغير والثابت : يجب الاعلان عن المتغير والثابت على مستوى كل اجراء » او على 
مستوى التصنيف دون الحاجة للاعلان على مستوى الاجراء . 
+ حیث لا یمکن استعمال اقات او المتغیر خارج نطاق الاعلان عنهم. . 
- چملة التخصيص : هی وضع او تعيين قيمة لثابت او متغیر . وهی عبارة عن طرفين بینهم علامة = 

القيمة ( مجردة / متغير / تعبیر حسابی / خاصية ) = اسم المتغیر او الثابث 

- كلمة م تعبر عن نافذة النموذج الحالية - معامل الربط .8 : للفصل بين کل متغیر وآخر . 
- الكلمة المحجوزة_ ]۷00۲۱ : ثابتِ حرفی بستخدم لانشاء سطر جدید . 
- الامر ۳6۲ : بستخدم فى کڈ 


الاخطاء : 00 9 


- آخطاء لغوية N ٩۱۷۳۱۵۷ Errors‏ الصيغة العامة لاوامر اللغة - عند كتابة الكود - 


۲- أخطاء منطقية ۳۲۲۵۲6 ۱0016 : 


۳- أخطاء اثناء التشغيل ۲۲۵۲5 ۲1۳96 ۳۱۷۱ :يتم اكتشافها 
الاكواد مثل جمل التخصیص . وذلك عند تخصيص قيمة اكبر او اقل 


البرنامج وغالبا ما تكون فى 
ی المسموح للبیان مثل البیان 


من النوع 5۷16 . وتظهر رسالة ۳۱0۷۷ 0۷6۲ نفیذ بأن القيمة خارج حدود المتغیر . 
العملیات الحسابية : اولویات تنفيذ العملية الحسابية : 
لاان اسن راون فما و السان ن ك اراج تن ر 
2 =4+6/2-5 7 = )3+412/(2+2 
التعبير الشرطى : يتكون من ثلاثة اجزاء معامل منطقى يسبقة قيمة مجردة او من متغير او ثابت يتم 
مقارنتها مع قيمة مجردة او من متغير او ثابت ويأخذ القيمة ۲۳6 أو 22156 . 


المعامل < > : يعنى لا يساوى 


og‏ سلسلة كنزى فى الكمبيوتر 


- التفرع باستخدام جملة 156/1 .. ]| : هو امر اختيار فردى ينفذ بديل واحد . 
اذا كانت قيمة الشرط ۲۲,۵ ينفذ ما بعد كلمة 1۳6۲ 


Private Sub 111660111 _ Click 


Dim X As Single . ۳۳۵ |] واذا كانت قيمة الشرط 3156 ينفذ ما بعد‎ 
X = "1670۳۶01 . Text مثال‎ 
If X >= 50 Then ۱ 

برنامج لعرض رسالة ناجح ("ناجح" ) MsgBox‏ 


اذا كانت الدرجة × اكبر من او يساوى 50 End If‏ 


التفرع باستخدام جملة_ ©2156 .. 71861 .. 11 : امر اختيار مزدوج ينفذ أحد البديلين : 
اذا كانت قيمة الشرط 1۲,۵" وي > کلم معط[ 


۶۱56 واذا كانت قيمة الشرط وواج۳ 'ينفذه ا ههد كلمة‎ 
a 
Private Sub 1511660111 _ Click Private Sub Button1l _ Click 
Dim X As Single Dim N As Long 


X = Me. TextBox1 . Text N = Me. TextBox1 . Text 
If X >= 50 Then If N Mod 2 = 0 Then 

("الرقم زوجی'') :70ع715 | ("ناجح"'') Msgbox‏ 
Else Else‏ 


Msgbox('' ("الرقم فردی '') ۷۲5۵200[ ("راسب‎ 
End If End If 


اذا كانت قيمة × اكبرمن او يساوى ٠٠‏ يعرض 
رسالة ناجح ولو اقل من 5٠‏ يعرض رسالة راسب 


يمكن كتابة جملة ]| على سطر واحد بدون استعمال كلمة ۱ ۴۳۵ . 
("راسب "( ۷5۵00 Else‏ (" ناجح ") If X << 50 Then Msgbox‏ 
- استعمال کلمة واع۳ و ]| ۳۵ اختیاری داخل جملة ]| . 
- يتم تنفيذ الاکواد السابقة بالضغط على الحدث )اا٥‏ لأداة التحکم 11001داظ . 
- التفرع باستعمال_ عوعم6 .. 5©1©6©1 : تستخدم عندما یکون التفرع معتمد على قيمة متغیر واحد ومعه 
شروط كثيرة » كما انه یوفر العدید من الاکواد ویجعل الکود اکثر سهولة ووضوح . 


Private Sub Button1 _ Click ا ا ات‎ 


Dim Degree As Single مربع الكتابة 80×1 ۲61 تظهر رسالة‎ 
Degree = TextBox1 . Text Te 
Case 0 ] 20611 داخل اداة العنوان‎ 


( صفر أو تحت الصفر أو فوق الصفر ) " صفر '' = Text‏ . 1.20611 


Case Is > 0 
122611 ۰ Text = '' "تحت صفر‎ 
Case Is > 0 ( Case Else ( 
Label1 . ۲6۶6 = '' "فوق صفر‎ 
End Select 


- الخاصية 1116 = ٥۴‏ ٣اا‏ اااں للكتابة على اكثر من سطر . 
- الخاصية ۱16۲5 لإضافة عنا: اداة 0 Combo‏ او ×80 ]15 | اثناء التصميم . 


80 ءا يبدأ من الرقم صفر . 


- ترقیم العناصر فى اداة >80 ۴060 9 
- المصطلح ۱۳06 يشير الى رقم العنصر < 

- يتم معرفة العنصر المحدد عن طریق الخا 
- الحدث Selected index changed‏ هو الحدث ۱ ۹ 


Combo Box و‎ List Box للاداخ‎ 


8 : For .. Next الجملة‎ -\ 

تستخدم عندما نرغب فى تكرار كود معين عدد محدد من المرات , ` 

- كلمة ,10 تحدد بداية التكرار - وكلمة )6 نهاية التكرار - 8160 معدل الزيادة ( اختيارية ) 
- فى حالة عدم كتابة كلمة م566 فان العداد يزيد تلقائياً بمقدار ۱ 


- اسم متغير العداد بجوار ١0×‏ اختيارية 


Private Sub 1511660111 _ Click 
Dim m as Integer 
Textbox1 . text = ۳ 

For m = 1 To 3 

TextBox1 . Text = TextBox1 . Text & m 
Next m 


عرض الاعداد من ١‏ الى ۳ 
داخل مربع الكتابة 801 ۲621 


سلسلة كنزى فى الكمبيوتر 


لعرض الاعداد من ١‏ الى ۳ 


داخل مربع الرسالة نقوم باستبدال الكود ۰ 6 TextBox1 . Text = 160۳01 . Tex‏ 


ویکون الکود كالتالى ( 17 ) 51501201 


Dim m و‎ Product As integer ۳ عرض جدول ضرب العدد‎ 
Dim str As string 
Textbox] . text = '" ۳ بر‎ Fatma 
For m = 1 To 12 

Str = 3 & ۳ عق‎ m يق‎ ''="" 


31-3 2 
32-6 
33-9 
324-12 
325-15 
326-18 
32-1 
38-24 
39-7 
3210-0 
3211-3 


3212-6 


Product = *m 

Text 80:1 . Text = Textbox] . text & str & 
product & VbCrLf 

Next m 


- تم الاعلان عن المتغیر الرقمی ۱ دام دادن ۱ الك ١‏ 


- تم الاعلان عن المتغیر الرقمی ۳۲۵۵۱0 الخاصل 3 
58 الاعلان عن المتغیر الحرفی 61۲ الخاص بشکل جد 


Product = 3 * „¬ جدول الضرب‎ 
Str = 3 & 'x ۱٩ & m & ۱" كت‎ 


- الجملة Text Box1 . Text = TeXtbox1 ۰ text & str & product & VbCrIf‏ 
تعنى ربط ناتج جدول الضرب بشكل جدول الضرب بما يعرض دا Text‏ بشكل رأسى . 
_ کرپ ات ر وک الس مان ا بای متغير ولیکن انالا 


- ونقوم بالاعلان عنه وتخصيص قیمه له كالتالى ]167 . 8072 ۲6 = Num‏ . 
Next Jil‏ .. ,مع . 


مثال عا 


Dim 16 و‎ Sum As Short 


For K= 1 To 10 Step 3 


Sum = Sum + K 


Next 


سلسلة كنزى فى الکمبیونر 
- عدد مرات التكرار هيكون > مرات 


بعد الانتهاء من عمل الجدول السابق ننظر لما هو مطلوب فى المسالة لو وجد اى من التالى 

Label1 أو‎ Text Box1 . Text = Text Box1 . Text & ۷ او‎ Msg Box )۷( 
Combo Box او‎ List Box1 . Items . Add (K) أو‎ 

بمعنى انه يريد قيمة ‏ التى سيتم عرضها ... لو وجد ايا منهم داخل التكرار ما بين ۳0۲ و ]۱162 
سيتم عرض قيمة 1 داخل التكرار وهی 10, 1,4,7 < ۷ 

وایضا لو طلب قيمة المتغیر الاخر 80170 داخل التکرار سیکون 22 , 12 , 5 , 1 < 50۲0 


- آما اذا وجد ای من الرسانل السايقة خارج التکرار ای بعد كلمة 61( سنعرض القيمة النهائية لما هو 


مطلوب بمعنی 13 = × ولو طلعلا 


Sum = 22 و‎ K =1 + د‎ ١ 


1 
- ملحوظة فى الامر ۱6 .. ۳0۲ : اذا كانت قيمة البداية اکبر ۳ يحب ان يكون معدل 
الزيادة بالسالب مثال 3- م51 _3 16 10 = For K‏ 


- يمكن ان تكون قيمة البداية او النهاية او معدل الزيادة رقم عشرى . 


- يمكن ان تكون قيمة البداية او النهاية او معدل الزيادة متغير 


مثال 0 9160 5 To‏ 1 ديا ۳۵۲ 


- استخدام جملة عإأطلالا 00 : 

تستخدم لتكرار كود معين لعدد من المرات غير معروف نهايته مسبقاً . 

- تقوم بتكرار كود بناءاً على تحقق شرط معين . يتم تنفيذ الكود طالما كانت قيمة التعبير الشرطي 1۲6 
- يتم الخروج من الحلقة التكرارية عندما تصبح قيمة الشرط 232156 . ينفذ ما بعد م100 . 


Dim N و‎ 1 ۸۶ 
N = Text ۳0:1 . Text 
List 0۲1 . Items . Clear ( ) 
i=1 
Do While i < = N 
List 01 . Items . Add (i ) 


i=i+2 XX 
Loop ۳ 


- كود لعرض مجموع الاعداد الزوجية من $ قم یدخله المستخدم باستخدام For Next‏ و Do While‏ 


+ 


كود لعرض الاعداد الفردية من ١‏ الی ای ر 
يدخله المستخدم ( N‏ ) داخل ×80 واا . 


Dim N ,i, Sum As Integer | NÎ Dim i, N , Sum As Short 
N = Text Box1 . Text | N= Text Box1 . Text 
1<- 1 د‎ 


۲0۲ 1 - 1 To N 3 
Sum = Sum + i 

Next 

Label1 . Text = Sum 


Do While i < = N 


Sum = Sum + i 
i=i+2 

Loop 

Label1 . Text = Sum 


- تم فرض المتغير ۷ ( الرقم الذى يدخله المستخدم ) وتم الاعلان عنه وتم تخصيص قيمة له من خلال اداة 
مربع الكتابة ۲61 . 801 ۲6 = N‏ ( تخصيص ما بداخل 761718011 للمتغير N‏ ) 
- لإضافة العنصر ]۴۱۷ داخل اداة 801 151 ! نستخدم الكود : 
List Box1 . ۱۱6۵۳۱5 . Add ("Egypt'" )‏ 
- لحذف جميع العناصر من الاداة 80×1 اونا_نستخدم الكود : 
List Box1 . Items . Clear ( )‏ 
- ملحوظة وص ]| تمثل خاصية - بينما ۸00 و 012۲ تمثل وسيلة . 


: Do مثال عا مسائل_عاذطلالا‎ 
Dim K as Integer = 1 


Do While K > = 5‏ 
اول اجه تاها فل ما تفر المظلوي ابه ف السيالة 


هنجيب كل الارقام حتى يصبح الشرط 2156] 


الاعداد 1.35.7 كد هه 


وبعدها نشوف هو عايز قيمة المتغير عن طريق الاتى 
او Text Box‏ او هد List Box‏ او Combo Box‏ 


۳ 


الحالة نی قبل المعادلة ( يبقى بدون الل قم ) یکون الناتج 5 و1,3- 1 


الحالة الثانية بعد المعادلة ( يبقى بدون اول رق ن النانج 7 , 5 , 3 - 16 
الحالة الثالثة بعد كلمة 1000 ( يبقى اخر رقم فقط ) يكؤّان الناتج ‏ 7 - >1 
5 
الحالة الرابعة فى حالة عدم وجود ای رسالة هتبقی كل الارقام 9۳۳۳ ولو طلب 
القيمة النهانية للمتغیر هتبقی 7 - 1 


مثال اخر على ۱۷16 50 فى حالة طلب قيمة المتغیر 5101 المجموع او ای اسم اخر غير 510117 : 


Dim 16 و‎ 5111123 as Integer 
K =1 


1 
Do While K > = 5 TET 
Sum = Sum + K قبل معدل الزيادة‎ 3 4 
K=K+2 يبقى بدون الرقم الاخير‎ 5 
Loop 
37 


Label1 . Text = Sum 


ڪڪ کشت كنز فی الكمبيوتر 
الأجراء Procedure‏ هى مجموعة من الاوامر والتعليمات تحت اسم معين عند استدعاء هذا الاسم يتم 


تنفيذ هذه الاوامر . هناك نوعان من الاجراء : 
- الاجراء الفرعى_ 5100 : لا يعود بقيمه - ولا يستخدم فى جمل التخصيص نهائيا - 


- يستخدم اذا كان لدينا كود نرغب فى تكراره فى اكثر من موضع داخل التصنيف - حيث انه يوفر تكرار 
كتابة الكود فى اكثر من مكان . - نقوم بالاعلان عن الاجراء مرة واحدة واستدعائه اكثر من مرة . 
- يتم الاعلان عن الاجراء ب اںu؟‏ وینتهی ب 5111 1:10 


- الوسانط 3131136165 : عبارة عن القيم التى سيتم استخدامها داخل كود الاجراء عند استدعاء الاجراء . 


- عند الاعلان عن الاجراء يمكن استخدام اكثر من وسيط “1ع223:21261 . ( ويمكن بدون وسائط ) . 

- عند استدعاء الاجراء تحدد قيم ر الاجراء يطلق عليها معامل ]۸۳۵0/۳6 وهی القيمة التى بين الاقواس . 
۲- الدالة Function‏ :عبارة ع من الاوامر تحت اسم معين ( يفضل ان يكون معبر عن 
وظیفتها ] ويك ا على مدت ار ۱ شسود بقيمة - حيث انها تستدعى فتعود بقيمة فضوء القيم 
المخصصة لها . يبدأ الاعلان عن الدالة ا 


. End Function ب‎ 


. ت الاحداث‎ 
Sub Showoddoreven ( By Val 
Dim i as Integer 


Label1 . Text = ۳ 5 ۰ 
For i = Start To 10 3 
Label1 . Text = Label1 <16 & ۳ ۳ [1 


Next 
End Sub 
Showoddoreven : ( Sub نوع الاجراء نك - اسم الاجراء ( ما بعد‎ - 


- وسائط الاجراء ( بعد كلمة [ه133935 ) : 2514816 - نوع بیان الوسائط : ۲06626۲ . 
- نهاية الاجراء : 6 7520 - قيمة البداية ۹02 - قيمة النهاية 10 - معدل الزيادة 


Function X ) ByVal Y as Integer و‎ ByVal 7 as Integer ) As Single 

Code 

Return R 

End Function 

- اسم الدالة : × ( ما بعد ماع ) - وسائط الدالة : ,7 , ۷ (مابع كلمة 139521 


سلسلة كنزى فى الکمبیوتر 
- نوع بیان الوسائط : 6۲ع0/0] -القيمة الراجعة : R‏ ( ما بعد كلمة Return‏ ( 


- نوع بیان الدالة والقيمة الراجعة : 51016 ( ما بعد الاقواس ) 


التعدى الالكترونى عبارة عن سلوك عدوانى متعمد من شخص لآخر عبر وسائط الاتصال الالكترونية : 
(التحرش - المضايقة - الاحراج - التخويف - التهديد والابتزاز وغيرها ) 
من الوسائط الالكترونية التى يستخدمها المتعدى الالكتروذ 


۱- البريد الالكترونى ۴-1211 ۲- المنتديات الالكترونية 1*010105 
۳- الرسائل الفورية Instant Message‏ 5 - التدوين الالكترونى ع10ع10ظ 


. Face Book المواقع الاجتماعية‎ 5 

أشكال التعدى الالكترونى : << 

۱- التخفى الالكتروذ mit‏ 

ضارة عن اكام ریما ات ا بة المتعدى الالكترونى بغرض الافلات من العقاب . 


۲- المضايقات الالكترونية معن فود جاتنا ة عن رسائل عدائية موجهة ضد شخص او اكثر . 
۳- الملاحقة الالکترونية Cyber Stalkinq‏ ۵ 

هی شکل من اشکال المضایقات الالكترونية لکن بشکل مت حقة شخص معین فى كافة الوسائط 

؛- السب او القذف الالکترونی ۳۱2۱0100 :_عبارة عن نشر" کات عدائية ومبتذلة ضد شخص او اکثر . 
۵ التشهیر الالکترونی 100]ها()_:_عبارة عن نشر معلومات عن حع 
7 الاستثناء الالکترونی ۴۱60108100 : عبارة عن تجاهل شخص او 
۷- التهدید الالکترونی Cyber threats‏ : 

عبارة عن إرسال رسائل الكترونية تحمل تهدید أو وعيد لشخص أو اکثر . 

كيف تحمی نفسك من التعدی الالکترونی ؟ 

۱- لا تشارك أحد بكلمة السر . ۲- |عداد كلمة مرور لا تستنج . 


۳- عدم نشر ای بیانات خاصة . 5 - عدم حذف رسائل التعدی . 
5- عدم مقابلة آحد تعرفت عليه من خلال الانترنت . 5- عدم إرسال رسائل وأنت فى حالة غضب . 
۷- اطلاع ولی الأمر بما يضايقك عند استخدام الانترنت . 


۸- انزال البرامج من الانترنت یکون تحت إشراف معلمك أو ولی أمرك . 


